home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 October: Mac OS SDK / Dev.CD Oct 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / PInterfaces / Collections.p < prev    next >
Encoding:
Text File  |  1997-08-12  |  15.6 KB  |  473 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        Collections.p
  3.  
  4.      Contains:    Collection Manager Interfaces
  5.  
  6.      Version:    Technology:    System 7.x
  7.                  Release:    Universal Interfaces 3.0.1
  8.  
  9.      Copyright:    © 1989-1997 by Apple Computer, Inc., all rights reserved
  10.  
  11.      Bugs?:        Please include the the file and version information (from above) with
  12.                  the problem description.  Developers belonging to one of the Apple
  13.                  developer programs can submit bug reports to:
  14.  
  15.                      devsupport@apple.com
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT Collections;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __COLLECTIONS__}
  28. {$SETC __COLLECTIONS__ := 1}
  29.  
  30. {$I+}
  31. {$SETC CollectionsIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __TYPES__}
  35. {$I Types.p}
  36. {$ENDC}
  37. {$IFC UNDEFINED __MIXEDMODE__}
  38. {$I MixedMode.p}
  39. {$ENDC}
  40.  
  41.  
  42. {$PUSH}
  43. {$ALIGN MAC68K}
  44. {$LibExport+}
  45.  
  46. {***********}
  47. { Constants }
  48. {***********}
  49. { Convenience constants for functions which optionally return values }
  50.  
  51. CONST
  52.     kCollectionDontWantTag        = 0;
  53.     kCollectionDontWantId        = 0;
  54.     kCollectionDontWantSize        = 0;
  55.     kCollectionDontWantAttributes = 0;
  56.     kCollectionDontWantIndex    = 0;
  57.     kCollectionDontWantData        = 0;
  58.  
  59.  
  60. { attributes bits }
  61.     kCollectionNoAttributes        = $00000000;                    {  no attributes bits set  }
  62.     kCollectionAllAttributes    = $FFFFFFFF;                    {  all attributes bits set  }
  63.     kCollectionUserAttributes    = $0000FFFF;                    {  user attributes bits  }
  64.     kCollectionDefaultAttributes = $40000000;                    {  default attributes - unlocked, persistent  }
  65.  
  66.  
  67. { 
  68.     Attribute bits 0 through 15 (entire low word) are reserved for use by the application.
  69.     Attribute bits 16 through 31 (entire high word) are reserved for use by the Collection Manager.
  70.     Only bits 31 (kCollectionLockBit) and 30 (kCollectionPersistenceBit) currently have meaning.
  71. }
  72.     kCollectionUser0Bit            = 0;
  73.     kCollectionUser1Bit            = 1;
  74.     kCollectionUser2Bit            = 2;
  75.     kCollectionUser3Bit            = 3;
  76.     kCollectionUser4Bit            = 4;
  77.     kCollectionUser5Bit            = 5;
  78.     kCollectionUser6Bit            = 6;
  79.     kCollectionUser7Bit            = 7;
  80.     kCollectionUser8Bit            = 8;
  81.     kCollectionUser9Bit            = 9;
  82.     kCollectionUser10Bit        = 10;
  83.     kCollectionUser11Bit        = 11;
  84.     kCollectionUser12Bit        = 12;
  85.     kCollectionUser13Bit        = 13;
  86.     kCollectionUser14Bit        = 14;
  87.     kCollectionUser15Bit        = 15;
  88.     kCollectionReserved0Bit        = 16;
  89.     kCollectionReserved1Bit        = 17;
  90.     kCollectionReserved2Bit        = 18;
  91.     kCollectionReserved3Bit        = 19;
  92.     kCollectionReserved4Bit        = 20;
  93.     kCollectionReserved5Bit        = 21;
  94.     kCollectionReserved6Bit        = 22;
  95.     kCollectionReserved7Bit        = 23;
  96.     kCollectionReserved8Bit        = 24;
  97.     kCollectionReserved9Bit        = 25;
  98.     kCollectionReserved10Bit    = 26;
  99.     kCollectionReserved11Bit    = 27;
  100.     kCollectionReserved12Bit    = 28;
  101.     kCollectionReserved13Bit    = 29;
  102.     kCollectionPersistenceBit    = 30;
  103.     kCollectionLockBit            = 31;
  104.  
  105.  
  106. { attribute masks }
  107.     kCollectionUser0Mask        = $00000001;
  108.     kCollectionUser1Mask        = $00000002;
  109.     kCollectionUser2Mask        = $00000004;
  110.     kCollectionUser3Mask        = $00000008;
  111.     kCollectionUser4Mask        = $00000010;
  112.     kCollectionUser5Mask        = $00000020;
  113.     kCollectionUser6Mask        = $00000040;
  114.     kCollectionUser7Mask        = $00000080;
  115.     kCollectionUser8Mask        = $00000100;
  116.     kCollectionUser9Mask        = $00000200;
  117.     kCollectionUser10Mask        = $00000400;
  118.     kCollectionUser11Mask        = $00000800;
  119.     kCollectionUser12Mask        = $00001000;
  120.     kCollectionUser13Mask        = $00002000;
  121.     kCollectionUser14Mask        = $00004000;
  122.     kCollectionUser15Mask        = $00008000;
  123.     kCollectionReserved0Mask    = $00010000;
  124.     kCollectionReserved1Mask    = $00020000;
  125.     kCollectionReserved2Mask    = $00040000;
  126.     kCollectionReserved3Mask    = $00080000;
  127.     kCollectionReserved4Mask    = $00100000;
  128.     kCollectionReserved5Mask    = $00200000;
  129.     kCollectionReserved6Mask    = $00400000;
  130.     kCollectionReserved7Mask    = $00800000;
  131.     kCollectionReserved8Mask    = $01000000;
  132.     kCollectionReserved9Mask    = $02000000;
  133.     kCollectionReserved10Mask    = $04000000;
  134.     kCollectionReserved11Mask    = $08000000;
  135.     kCollectionReserved12Mask    = $10000000;
  136.     kCollectionReserved13Mask    = $20000000;
  137.     kCollectionPersistenceMask    = $40000000;
  138.     kCollectionLockMask            = $80000000;
  139.  
  140.  
  141. {*********}
  142. { Types   }
  143. {*********}
  144. { abstract data type for a collection }
  145.  
  146. TYPE
  147.     Collection = ^LONGINT;
  148. { collection member 4 byte tag }
  149.     CollectionTag                        = FourCharCode;
  150.     CollectionFlattenProcPtr = ProcPtr;  { FUNCTION CollectionFlatten(size: SInt32; data: UNIV Ptr; refCon: UNIV Ptr): OSErr; }
  151.  
  152.     CollectionExceptionProcPtr = ProcPtr;  { FUNCTION CollectionException(c: Collection; status: OSErr): OSErr; }
  153.  
  154.     CollectionFlattenUPP = UniversalProcPtr;
  155.     CollectionExceptionUPP = UniversalProcPtr;
  156.  
  157. CONST
  158.     uppCollectionFlattenProcInfo = $00000FE0;
  159.     uppCollectionExceptionProcInfo = $000002E0;
  160.  
  161. FUNCTION NewCollectionFlattenProc(userRoutine: CollectionFlattenProcPtr): CollectionFlattenUPP;
  162.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  163.     INLINE $2E9F;
  164.     {$ENDC}
  165.  
  166. FUNCTION NewCollectionExceptionProc(userRoutine: CollectionExceptionProcPtr): CollectionExceptionUPP;
  167.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  168.     INLINE $2E9F;
  169.     {$ENDC}
  170.  
  171. FUNCTION CallCollectionFlattenProc(size: SInt32; data: UNIV Ptr; refCon: UNIV Ptr; userRoutine: CollectionFlattenUPP): OSErr;
  172.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  173.     INLINE $205F, $4E90;
  174.     {$ENDC}
  175.  
  176. FUNCTION CallCollectionExceptionProc(c: Collection; status: OSErr; userRoutine: CollectionExceptionUPP): OSErr;
  177.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  178.     INLINE $205F, $4E90;
  179.     {$ENDC}
  180. {*******************************************}
  181. {************ Public interfaces ************}
  182. {*******************************************}
  183. FUNCTION NewCollection: Collection;
  184.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  185.     INLINE $7000, $ABF6;
  186.     {$ENDC}
  187.  
  188. PROCEDURE DisposeCollection(c: Collection);
  189.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  190.     INLINE $7001, $ABF6;
  191.     {$ENDC}
  192.  
  193. FUNCTION CloneCollection(c: Collection): Collection;
  194.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  195.     INLINE $7002, $ABF6;
  196.     {$ENDC}
  197.  
  198. FUNCTION CountCollectionOwners(c: Collection): SInt32;
  199.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  200.     INLINE $7003, $ABF6;
  201.     {$ENDC}
  202.  
  203. FUNCTION CopyCollection(srcCollection: Collection; dstCollection: Collection): Collection;
  204.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  205.     INLINE $7004, $ABF6;
  206.     {$ENDC}
  207.  
  208. FUNCTION GetCollectionDefaultAttributes(c: Collection): SInt32;
  209.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  210.     INLINE $7005, $ABF6;
  211.     {$ENDC}
  212.  
  213. PROCEDURE SetCollectionDefaultAttributes(c: Collection; whichAttributes: SInt32; newAttributes: SInt32);
  214.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  215.     INLINE $7006, $ABF6;
  216.     {$ENDC}
  217.  
  218. FUNCTION CountCollectionItems(c: Collection): SInt32;
  219.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  220.     INLINE $7007, $ABF6;
  221.     {$ENDC}
  222.  
  223. FUNCTION AddCollectionItem(c: Collection; tag: CollectionTag; id: SInt32; itemSize: SInt32; itemData: UNIV Ptr): OSErr;
  224.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  225.     INLINE $7008, $ABF6;
  226.     {$ENDC}
  227.  
  228. FUNCTION GetCollectionItem(c: Collection; tag: CollectionTag; id: SInt32; VAR itemSize: SInt32; itemData: UNIV Ptr): OSErr;
  229.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  230.     INLINE $7009, $ABF6;
  231.     {$ENDC}
  232.  
  233. FUNCTION RemoveCollectionItem(c: Collection; tag: CollectionTag; id: SInt32): OSErr;
  234.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  235.     INLINE $700A, $ABF6;
  236.     {$ENDC}
  237.  
  238. FUNCTION SetCollectionItemInfo(c: Collection; tag: CollectionTag; id: SInt32; whichAttributes: SInt32; newAttributes: SInt32): OSErr;
  239.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  240.     INLINE $700B, $ABF6;
  241.     {$ENDC}
  242.  
  243. FUNCTION GetCollectionItemInfo(c: Collection; tag: CollectionTag; id: SInt32; VAR index: SInt32; VAR itemSize: SInt32; VAR attributes: SInt32): OSErr;
  244.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  245.     INLINE $700C, $ABF6;
  246.     {$ENDC}
  247.  
  248. FUNCTION ReplaceIndexedCollectionItem(c: Collection; index: SInt32; itemSize: SInt32; itemData: UNIV Ptr): OSErr;
  249.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  250.     INLINE $700D, $ABF6;
  251.     {$ENDC}
  252.  
  253. FUNCTION GetIndexedCollectionItem(c: Collection; index: SInt32; VAR itemSize: SInt32; itemData: UNIV Ptr): OSErr;
  254.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  255.     INLINE $700E, $ABF6;
  256.     {$ENDC}
  257.  
  258. FUNCTION RemoveIndexedCollectionItem(c: Collection; index: SInt32): OSErr;
  259.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  260.     INLINE $700F, $ABF6;
  261.     {$ENDC}
  262.  
  263. FUNCTION SetIndexedCollectionItemInfo(c: Collection; index: SInt32; whichAttributes: SInt32; newAttributes: SInt32): OSErr;
  264.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  265.     INLINE $7010, $ABF6;
  266.     {$ENDC}
  267.  
  268. FUNCTION GetIndexedCollectionItemInfo(c: Collection; index: SInt32; VAR tag: CollectionTag; VAR id: SInt32; VAR itemSize: SInt32; VAR attributes: SInt32): OSErr;
  269.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  270.     INLINE $7011, $ABF6;
  271.     {$ENDC}
  272.  
  273. FUNCTION CollectionTagExists(c: Collection; tag: CollectionTag): BOOLEAN;
  274.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  275.     INLINE $7012, $ABF6;
  276.     {$ENDC}
  277.  
  278. FUNCTION CountCollectionTags(c: Collection): SInt32;
  279.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  280.     INLINE $7013, $ABF6;
  281.     {$ENDC}
  282.  
  283. FUNCTION GetIndexedCollectionTag(c: Collection; tagIndex: SInt32; VAR tag: CollectionTag): OSErr;
  284.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  285.     INLINE $7014, $ABF6;
  286.     {$ENDC}
  287.  
  288. FUNCTION CountTaggedCollectionItems(c: Collection; tag: CollectionTag): SInt32;
  289.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  290.     INLINE $7015, $ABF6;
  291.     {$ENDC}
  292.  
  293. FUNCTION GetTaggedCollectionItem(c: Collection; tag: CollectionTag; whichItem: SInt32; VAR itemSize: SInt32; itemData: UNIV Ptr): OSErr;
  294.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  295.     INLINE $7016, $ABF6;
  296.     {$ENDC}
  297.  
  298. FUNCTION GetTaggedCollectionItemInfo(c: Collection; tag: CollectionTag; whichItem: SInt32; VAR id: SInt32; VAR index: SInt32; VAR itemSize: SInt32; VAR attributes: SInt32): OSErr;
  299.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  300.     INLINE $7017, $ABF6;
  301.     {$ENDC}
  302.  
  303. PROCEDURE PurgeCollection(c: Collection; whichAttributes: SInt32; matchingAttributes: SInt32);
  304.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  305.     INLINE $7018, $ABF6;
  306.     {$ENDC}
  307.  
  308. PROCEDURE PurgeCollectionTag(c: Collection; tag: CollectionTag);
  309.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  310.     INLINE $7019, $ABF6;
  311.     {$ENDC}
  312.  
  313. PROCEDURE EmptyCollection(c: Collection);
  314.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  315.     INLINE $701A, $ABF6;
  316.     {$ENDC}
  317. FUNCTION FlattenCollection(c: Collection; flattenProc: CollectionFlattenUPP; refCon: UNIV Ptr): OSErr;
  318.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  319.     INLINE $701B, $ABF6;
  320.     {$ENDC}
  321.  
  322. FUNCTION FlattenPartialCollection(c: Collection; flattenProc: CollectionFlattenUPP; refCon: UNIV Ptr; whichAttributes: SInt32; matchingAttributes: SInt32): OSErr;
  323.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  324.     INLINE $701C, $ABF6;
  325.     {$ENDC}
  326.  
  327. FUNCTION UnflattenCollection(c: Collection; flattenProc: CollectionFlattenUPP; refCon: UNIV Ptr): OSErr;
  328.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  329.     INLINE $701D, $ABF6;
  330.     {$ENDC}
  331.  
  332. FUNCTION GetCollectionExceptionProc(c: Collection): CollectionExceptionUPP;
  333.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  334.     INLINE $701E, $ABF6;
  335.     {$ENDC}
  336.  
  337. PROCEDURE SetCollectionExceptionProc(c: Collection; exceptionProc: CollectionExceptionUPP);
  338.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  339.     INLINE $701F, $ABF6;
  340.     {$ENDC}
  341.  
  342. FUNCTION GetNewCollection(collectionID: SInt16): Collection;
  343.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  344.     INLINE $7020, $ABF6;
  345.     {$ENDC}
  346.  
  347. {********************************************************************}
  348. {************* Utility routines for handle-based access *************}
  349. {********************************************************************}
  350. FUNCTION AddCollectionItemHdl(aCollection: Collection; tag: CollectionTag; id: SInt32; itemData: Handle): OSErr;
  351.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  352.     INLINE $7021, $ABF6;
  353.     {$ENDC}
  354.  
  355. FUNCTION GetCollectionItemHdl(aCollection: Collection; tag: CollectionTag; id: SInt32; itemData: Handle): OSErr;
  356.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  357.     INLINE $7022, $ABF6;
  358.     {$ENDC}
  359.  
  360. FUNCTION ReplaceIndexedCollectionItemHdl(aCollection: Collection; index: SInt32; itemData: Handle): OSErr;
  361.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  362.     INLINE $7023, $ABF6;
  363.     {$ENDC}
  364.  
  365. FUNCTION GetIndexedCollectionItemHdl(aCollection: Collection; index: SInt32; itemData: Handle): OSErr;
  366.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  367.     INLINE $7024, $ABF6;
  368.     {$ENDC}
  369.  
  370. FUNCTION FlattenCollectionToHdl(aCollection: Collection; flattened: Handle): OSErr;
  371.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  372.     INLINE $7025, $ABF6;
  373.     {$ENDC}
  374.  
  375. FUNCTION UnflattenCollectionFromHdl(aCollection: Collection; flattened: Handle): OSErr;
  376.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  377.     INLINE $7026, $ABF6;
  378.     {$ENDC}
  379.  
  380. {$IFC OLDROUTINENAMES }
  381.  
  382. CONST
  383.     dontWantTag                    = 0;
  384.     dontWantId                    = 0;
  385.     dontWantSize                = 0;
  386.     dontWantAttributes            = 0;
  387.     dontWantIndex                = 0;
  388.     dontWantData                = 0;
  389.  
  390.     noCollectionAttributes        = $00000000;
  391.     allCollectionAttributes        = $FFFFFFFF;
  392.     userCollectionAttributes    = $0000FFFF;
  393.     defaultCollectionAttributes    = $40000000;
  394.  
  395.     collectionUser0Bit            = 0;
  396.     collectionUser1Bit            = 1;
  397.     collectionUser2Bit            = 2;
  398.     collectionUser3Bit            = 3;
  399.     collectionUser4Bit            = 4;
  400.     collectionUser5Bit            = 5;
  401.     collectionUser6Bit            = 6;
  402.     collectionUser7Bit            = 7;
  403.     collectionUser8Bit            = 8;
  404.     collectionUser9Bit            = 9;
  405.     collectionUser10Bit            = 10;
  406.     collectionUser11Bit            = 11;
  407.     collectionUser12Bit            = 12;
  408.     collectionUser13Bit            = 13;
  409.     collectionUser14Bit            = 14;
  410.     collectionUser15Bit            = 15;
  411.     collectionReserved0Bit        = 16;
  412.     collectionReserved1Bit        = 17;
  413.     collectionReserved2Bit        = 18;
  414.     collectionReserved3Bit        = 19;
  415.     collectionReserved4Bit        = 20;
  416.     collectionReserved5Bit        = 21;
  417.     collectionReserved6Bit        = 22;
  418.     collectionReserved7Bit        = 23;
  419.     collectionReserved8Bit        = 24;
  420.     collectionReserved9Bit        = 25;
  421.     collectionReserved10Bit        = 26;
  422.     collectionReserved11Bit        = 27;
  423.     collectionReserved12Bit        = 28;
  424.     collectionReserved13Bit        = 29;
  425.     collectionPersistenceBit    = 30;
  426.     collectionLockBit            = 31;
  427.  
  428.     collectionUser0Mask            = $00000001;
  429.     collectionUser1Mask            = $00000002;
  430.     collectionUser2Mask            = $00000004;
  431.     collectionUser3Mask            = $00000008;
  432.     collectionUser4Mask            = $00000010;
  433.     collectionUser5Mask            = $00000020;
  434.     collectionUser6Mask            = $00000040;
  435.     collectionUser7Mask            = $00000080;
  436.     collectionUser8Mask            = $00000100;
  437.     collectionUser9Mask            = $00000200;
  438.     collectionUser10Mask        = $00000400;
  439.     collectionUser11Mask        = $00000800;
  440.     collectionUser12Mask        = $00001000;
  441.     collectionUser13Mask        = $00002000;
  442.     collectionUser14Mask        = $00004000;
  443.     collectionUser15Mask        = $00008000;
  444.     collectionReserved0Mask        = $00010000;
  445.     collectionReserved1Mask        = $00020000;
  446.     collectionReserved2Mask        = $00040000;
  447.     collectionReserved3Mask        = $00080000;
  448.     collectionReserved4Mask        = $00100000;
  449.     collectionReserved5Mask        = $00200000;
  450.     collectionReserved6Mask        = $00400000;
  451.     collectionReserved7Mask        = $00800000;
  452.     collectionReserved8Mask        = $01000000;
  453.     collectionReserved9Mask        = $02000000;
  454.     collectionReserved10Mask    = $04000000;
  455.     collectionReserved11Mask    = $08000000;
  456.     collectionReserved12Mask    = $10000000;
  457.     collectionReserved13Mask    = $20000000;
  458.     collectionPersistenceMask    = $40000000;
  459.     collectionLockMask            = $80000000;
  460.  
  461. {$ENDC}  {OLDROUTINENAMES}
  462.  
  463. {$ALIGN RESET}
  464. {$POP}
  465.  
  466. {$SETC UsingIncludes := CollectionsIncludes}
  467.  
  468. {$ENDC} {__COLLECTIONS__}
  469.  
  470. {$IFC NOT UsingIncludes}
  471.  END.
  472. {$ENDC}
  473.